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Directly accessing the text mode video screen 


By Marco C. Mason 
Listing 1 begins on page 13 


he IBM PC and its myriad compatibles have many 

options for controlling the video screen, ranging 

from 40x25 monochrome to high-resolution 
Professional Graphics Controller (PGC) and XGA color 
graphics. In this article, we'll focus on a subset of these 
modes: the text modes. First, we'll examine how the 
various text modes work. Then we'll show you how to 
bypass DOS and BIOS and directly access the screen for 
higher speed. Finally, we will present a simple program 
that shows you how to put it all together. 

There are five standard text modes used by the IBM 

PC. Table A shows a list of these modes and the adapters 
that support them. Be aware that, while most IBM video 
controller cards support only a subset of these modes, 


some third-party cards can support all standard text modes. 


Also note that since IBM CGA adapters disable the 
colorburst signal in modes 0 and 2, they don't show color 
in these modes. Most clone CGA cards don't disable the 
colorburst signal, so they do show color in modes 0 and 2. 


TABLE A 


Mode Resolution RAM address 
b800:0000 
b800:0000 
b800:0000 
b800:0000 


b000:0000 


Adapters 
40х25 (mono) 
40x25 (color) 
80x25 (mono) 
80x25 (color) 
80x25 (mono) 


~ Adapter list: 
1 - CGA, EGA, MCGA, УСА, and XGA 
2- MDA, VGA, XGA, and Hercules graphics c card. 


Luckily, the architecture of the various text mode 
screens is extremely similar. This enables us to use 
nearly identical code when managing these different 
text mode screens. 


. How the memory is formatted 

: In text mode, fully representing a character on the screen 

| takes two bytes. For each pair, the first byte is the code for 
the character and the second byte controls its attributes: 

| the foreground color, background color, blink attribute, 


and intensity attribute. 
The codes used to describe characters on the screen 


| (called the IBM PC character set) are similar to the ASCII 

_ character set. The codes for the printable characters in the 
. ASCII set (including codes 20H through 7EH, which 

| represent numbers, letters, and punctuation symbols) are 

| the same as those in the IBM PC character set. In addition, 
. the IBM PC character set includes symbols for the unprint- 
. able characters іп the ASCII set (characters ООН through 


31H and 7FH) as well as the characters that are not defined 


| by ASCII (80H through ЕЕН). 


The second byte in the definition of a character con- 


. trols its display attributes. Table B on the next page shows 
_ the attributes controlled by each bit in the attribute byte, 

| and Table C shows the different foreground and back- 

- ground colors for color video adapters (CGA through XGA). 


While the effects of Bits 7 (blink) and 3 (intensity) are 


' the same on all video adapters, the effects of Bits 6, 5, and 
| Á (the background color) and Bits 2, 1, and O (the fore- 
| ground color) are different with monochrome adapters 
‚ (MDA, Hercules). Table D shows the only four acceptable 


Continued on page 2 
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Directly accessing the text mode video screen 


combinations of foreground and background color settings 
for monochrome adapters. When you write software that 
might be run on an MDA, make sure you give the user a 
method of setting the attributes to one of the legal values; 
otherwise, the screen could be illegible. 


TABLE B 
Bit Function 

7 Blink control (0-no blink, 1-blink) : 
6...4 Background color о : 

3 Intensity (O=normal, 1=high) _ 
2..0 Foreground color | 


TABLE С 


, Black 
Blue 001 
Green 010 
Cyan 011 
Red 100 
Magenta 101 
Brown 110 


Light Gray 


TABLE D. 


| Background Foreground 


| Name (Bits 6, 5, 4) (Bits 2, 1, 0) 

| Normal characters 000 111 | 

| Inverse video TII 000 | 
Invisible characters 000 000 

| Underline 000 001 


Accessing the screen directly 


Now that you know how your PC defines each character 
on the screen, it's easy to create a data structure you can 
use to represent a screen character. Figure A shows just 
such a structure. 


Figure A 


screenCell struc ; A definition of a screen cell 
char db ? ; the character on the screen 
attr db ? ; the visual attributes 
screenCell ends 


You can use the screenCell structure to access video memory. 


Now that you know how the screen cell is defined, 
you can start accessing the video RAM directly. Armed 
with this knowledge, let's see how our demonstration 
program works. 


VIDEO.ASM—an example 
program 


The program VIDEO.ASM, shown in Listing 1A on page 13, 
demonstrates how you can directly access the text mode 
video RAM. Before we dive in and study its internal oper- 
ation, here’s a brief summary of how it works. First it clears 
the screen with an attribute of OOH. As you can see from 
Tables B, C, and D, this gives invisible characters on all 
standard video adapters. (Color adapters get black char- 
acters on a black background, and monochrome adapters 
get invisible characters.) 

Next, VIDEO.ASM prints the message Inside Assembler 
down the center of the screen, on all lines but the first and 
last. Then the program waits for you to press a key. After 
you do so, it sets the screen attributes to gray characters on 
a black background. Then VIDEO.ASM waits for you to 
press another key. When you do, it changes the screen 
attributes to black characters on a white background. 
Finally, it waits for you to press one more key, and once 
you do, VIDEO.ASM exits. 

AS you can see by looking at the code, we've put all 
the hard work in the three procedures clear. screen, 
display string, and set screen attr. Let's take a look at 
these procedures in detail to see how they work. 


The clear screen procedure 


The clear, screen procedure clears the screen by setting the 
char field of each screen cell to a space, and the attr field to a 
value you specify. You tell the clear screen procedure what 
attribute you want by passing its value in the AL register. 

When you call clear, screen, it first pushes some 
registers onto the stack so it can restore them to their 
original values before it returns. Then clear. screen calls 
set ES to screen start to get the segment address of the 
screen. (If set ES to screen start fails, it returns with the 
Carry Flag set, and clear screen simply aborts.) 


Figure B 

mov cx, SCREEN SIZE 

xor di, di ; Now ES:DI points to screen start 
mov ah, al ; AH = attribute 

mov al, ' ' ; AL = character (space) 

rep stosw ; Set entire screen to blanks 


This code is the heart of the clear. screen procedure. 


As you can see in Figure B, clear screen next sets the 
CX register to hold the number of cells in the screen, and 


the DI register to point to the start of video memory. Then 
clear screen places the video attribute in AH and a space 
in AL. (We do this because when you write a word, it 
reverses the bytes—which makes the character first and 
the attribute second, just as in the screenCell structure.) 
Finally, clear screen fills all the screen cells with the 
specified character and attribute. 

We'll describe the set, screen attr procedure next 
because it's so similar to the clear screen procedure. 


The set screen attr procedure 


The set screen attr procedure is nearly the same as 

clear screen. The only difference is that clear screen sets 
all the characters on the screen to blanks, while 

set screen attr doesn't change the characters—it changes 
only the attributes on the screen. 

Figure C shows the heart of the set screen attr pro- 
cedure. Instead of using rep stosw to set the character and 
the attribute, we've had to construct a loop. The first thing 
we do in this loop is place the video attribute in the attr 
field of the cell that DI points to. Next, set screen attr points 
to the next cell by adding 2 to DI. Then we iterate the loop 
until we've set the video attribute for each screen cell. 


Figure C 


mov cx, SCREEN SIZE 
xor di, di 
ssaLoop: 

IF eVersion GT 600 
ASSUME di:ptr screenCell 

ENDIF 

mov es:[di].attr, al ; 

add di, 2 

loop ssaLoop 


; Now, ES:DI points to video RAM 


put char on display 
; Skip to next cell address 
; process next cell on screen 


The heart of the set screen attr procedure is similar to that of 
clear screen. 


(We could replace the highlighted lines in Figure C with 
а stosb and ап inc di, which would execute faster on 8086 
and 8088 machines, but we wanted to show you how to 
access the screen cells with the screenCell structure.) 

While the set screen attr procedure changes only the 
attributes on the screen, the display string procedure 
changes only text and ignores the attributes. 


The display string procedure 


The display string procedure is the most complex of the 
three procedures. It displays a string on the screen at the 
desired location. To use it, you must pass it three para- 
meters: the row on the screen (in DH), the column (in 
DL), and the address of the string to print (in DS:SD. You 
terminate the string with a byte of zeros so display string 
knows when to stop. 
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Since display_string doesn’t display text all over the 
screen, it has two jobs. First it must decide where to 
place the text, then it must actually put the text in 
video memory. 

Figure D shows the code that display. string uses to 
compute the location in memory to place the text. Since 
DH holds the row number and DL holds the column of the 
first character of the string, DH*SCREEN_WIDTH+DL is the 
number of the first cell. Each cell is two bytes long, so the 
Offset address of the screen cell is 2*(DH*SCREEN_WIDTH+DL). 
The code in Figure D computes this value and places it 
in BX. 


Figure D 

mov cl, SCREEN WIDTH ; cells in row 

хог ax, ax 

mov al, dh ; гом number 

mul cl ; АХ=гом number « cells in row 

add al, dl ; АХ=гом number«cells in row«column 
adc ah, 0 

add ax, ax ; each cell is two bytes long 

mov bx, ax ; ВХ = offset of first character 


display string uses this code to compute the location in video 
memory to place the string. 


Figure E shows the loop that display string uses to 
place the text in the video memory. Just before the loop 
executes, we compute how many characters are left on 
the row (so we don't go past the left margin and wrap to 
the right of the screen). 

First the loop loads the character into AL and tests it to 
see whether it's the end of the string value (i.e., if it's 
zero)—if it is, we exit the loop. If it doesn’t signify the end 
of the string, we place the value in video memory and 
point to the next cell. Then we check to see if we've hit 
the right margin yet—if so, we exit the loop. 

In all three of these procedures, we called a pro- 
cedure named set ES to screen start to get the segment 
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address of the start of the video display memory. Since 
this program works only in the screen mode you select 


: when you assemble it, it's a reasonable compromise. If 
. you modify this program to work with multiple screen 


modes, you'll need to write something fancier than 
set ES to screen start. 


Figure E 
sub cl, dl ; compute the max # of columns 
ds loop: 
Lodsb ; get the character to display 
or al, al ; End of string found? 
jz ds done 


IF eVersion GT 600 
ASSUME bx:ptr screenCell 


ENDIF 
mov es:[bx].char, al ; put char on display 
add bx, 2 ; point to the next screen cell 
dec cl 
jnz ds loop 
ds done: ; done-EOString or RMargin 


display string uses this code to copy the string to video memory 
without disturbing the video attributes. 


Conclusion 


| When you assemble the program, you need to supply 


the value of the SCREENMODE equate. You can do this on 
the command line with the -D switch. If you supply an 
invalid value for SCREENMODE, the program won't run 


properly. Additionally, when you run your program, the 


adapter must already be in the mode you specifiy when 


| you assemble it—we don't change the video mode in 


this program. 
Now that you know how the video screen memory is 
organized, you can read and write text to the screen in the 


. blink of an eye. 1 


A collection of signed and unsigned decimal 


ГО functions 


Listings 2A and 2B begin on page 14 


n our first two issues, we discussed a set of hexade- 
imal input and output functions. While hexadecimal 
notation is great for computer programmers, it's not 
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quite what the rest of the world is used to. In this article, 


we'll discuss a small set of procedures designed to help 
’ you interact with users with signed and unsigned decimal 


numbers. First we'll discuss how we built the output 
functions, then we'll look at the input functions. 


The basic problems of formatting 
numbers for output 


Unfortunately, hexadecimal I/O is much simpler than 
decimal I/O, since you're dealing with an even four bits at 
a time. Decimal numbers aren't as nice to work with in 
binary computers because you can't just extract the middle 
digit easily, as you can in hexadecimal. 

There are three problems we'll have to overcome in 
order to output decimal numbers. First, we need to be 
able to extract the decimal digits from the binary number. 
Second, we need to format the number; third, we need to 
handle the sign for signed decimal numbers. As we solve 
these problems, we'll go ahead and build parts of our 
decimal number output library. 

Let's start with the first problem: How do we extract a 
decimal digit from a binary number? Two solutions come 
to mind. We could successively subtract powers of ten 
until the number goes negative and keep track of how 
many subtractions we're made. Figure A shows some 
code that functions like this. 


Figure A 

mov cx, 10000  ; Let's find the 10,000's digit 

xor bl, bl ; so far we have no 10,000's 
Loop: 

Sub ax, CX 

jc done ; if AX < CX, we're done! 

inc bl ; otherwise, add 1 to the 10,000's 
count 

jmp loop ; and try again 
done: 

add ax, cx ; we're done 


; $0 add 10,000 to make it positive 
; now we're ready to check 1,000's .. 


This code can determine how many 10,000's exist in AX by using 
successive subtraction. 


Thus, if you start with AX=35,437, you'll go through 
the loop as shown in Table A. 

While you can code it better, the method in Figure A 
suffers from being slow. A better way is to divide the 
number in the AX register by 10. When you do this, it 
places the remainder in the DX register and the quotient in 
AX. Each time you divide the value in AX by 10, you get 
another digit. Figure B shows a fragment of code that 
successively divides the value in AX by 10. 


TABLE A 


Description 


- First time we hit label Loop 


_ the AX register 

Figure B 

mov bx, 10 ; For decimal numbers, use divisor of 10 
Loop: 

xor dx, dx ; zero out the MSW of the dividend 

div ax, bx ; AX = AX/10, DX=remainder 

ог ax, ax ; When AX-0, we've gotten all the digits 

jnz loop 


This code fragment divides the value in AX by 10 successively until 
AX is zero. 


Let’s trace through the code in Figure B, again using 
35,437 as our starting value in AX. We'll trace our progress 
in Table B. 


TABLE B 


о ираса 
When we е first hit Loop 
Next iteration (units) 
| Next iteration (t ns) : _ 
Next iteration а т dreds) _ 


Next iteration (thousands) _ 


AX- :6, so we quit |: 


While the code isn't any more complex, we get a digit 
each iteration! (Of course, the DIV instruction is pretty 
slow, but it beats repeatedly executing the loop in Figure A 
for each digit.) The only potential problem is that we get 
the digits in reverse order. 


The convert_bin_to_string procedure 
It turns out that this second section of code is a critical 
component of our decimal output functions, so we built a 
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helper routine out of it called convert_bin_to_string, which 
some of our other functions will call to make a decimal 
string. (The code for convert_bin_to_string and the other 
procedures we discuss in this article is included in 
DECIO.ASM, found in Listing 2A on page 14.) 

When you call convert_bin_to_string, you pass it the 
binary number in AX, and it will return a pointer to the 
string in the DS:SI register pair and the number of digits in 
the CL register. 

Figure C shows the code for convert_bin_to_string. 
We only had to convert the value in DL to ASCII and store 
it into a buffer to end up with a useful function. We put 
our string in a temporary buffer named temp buff because 
we need to do more work on the string of digits before we 
place it in the output buffer. 


Figure C 


convert bin to string proc 


mov si, offset temp buff«9 ; put str in temp buffer 

mov bx, 10 

xor dx, dx ; Clear top half of accumulator 

xor cl, cl ; Clear number of digits count 
convert loop: 

div bx ; get least significant digit 

add dl, '0' ; turn into an ASCII digit 

dec si ; point to place to store digit 

mov [si], dl ; store digit 

inc cl ; increment digit count 

xor dl, dl ; clear top half of accumulator 

ог ax, ax ; are we done yet? 

jnz convert loop 

ret 


convert bin to string endp 


Here's the complete convert bin to string procedure, which we'll 
call in our other functions. 


The major problem with convert bin to string is that 
it's very difficult to print numbers in nice, pretty columns, 
as users expect. To combat this problem, we created 
another helper procedure named move to output buffer. 


The move to output buffer procedure 
Since you want your programs to have nice output, you often 
want to control the width of the number you're printing. The 
move to output buffer procedure copies the decimal string 
from the temporary buffer to the output buffer, padding the 
_ string with blanks if necessary. If the number is too wide to fit 
in the field, then move to output buffer copies the entire num- 
ber into the output buffer. (move to output buffer assumes 
that outputting the correct number is a higher priority than 
making your columns line up.) 

move to output buffer expects the DS:SI register pair to 
point to the work buffer, CL to hold the number of digits in 
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the work buffer, and ES:DI to point to the output buffer. 

Figure D shows the code for the move_to_output_buffer 
procedure. First, it gets the desired field_width into the AL 
register. Then, if the value in the AL register is larger than 
the one in the CL register, it places AL-CH spaces in the 
output buffer. After padding the output field with blanks, 
move_to_output_buffer copies the work buffer to the out- 
put buffer. 


Figure D 


move_to_output_buffer proc 
; pad output field with enough © ' to fill field 


xor ch, ch 
push cx 
mov al, field width ; # to pad=field_width-num_dig 
sub al, cl 
jc done padding ; don't pad if not enough room 
xchg al, cl ; СХ = number of spaces to add 
mov al, ' ' 
rep stosb ; pad output buffer 

done padding: 
pop cx ; CX = # digits in temp buff 
rep movsb ; copy digits to output buffer 
ret 


move_to_output_buffer endp 


The move_to_output_buffer procedure copies the number prepared 
by convert_bin_to_string to the output buffer, padding if necessary. 


Now we’ve completed the basic building blocks for 
our Output functions. Let’s go ahead and build our signed 
and unsigned decimal output functions with them. 


The udec_format procedure 

Now that we’ve solved the first two problems, we can go 
ahead and create our first ready-to-use procedure: udec_format. 
You can call udec_format with a number in AX and the address 
of your output buffer in ES:DI, and it will format the number as 
a string of unsigned decimal digits. When it returns, ES:DI will 
point to the next available position in the buffer, and AX will 
contain garbage. 

While the udec_format procedure doesn’t require any 
further explanation (it relies solely on the procedures 
convert_bin_to_string and move_to_output_buffer ), the 
next function, dec_format, does need a little more 
clarification. 


The procedure dec_format 


The only thing that complicates dec_format is the third 


problem we mentioned earlier—we have to manipulate 
the sign. So before we call the convert_bin_to_string 
procedure to convert the number to a string of digits, we 
need to take care of its sign. 


Figure Е contains the snippet of code that we use to 
take care of the number’s sign. If the number is negative, 
we set the CH register to 1 and negate the number (turn- 
ing it positive). If the number is positive, we set CH to 0. 
We'll use this CH register value to determine whether or 
not to add a '-' to the output buffer. 


Figure E 
xor ch, ch ; sign flag: O=positive, l=negative 
ог ах, ах ; is number < 9? 
jns positive | 
neg ах ; # is negative, make it positive 
inc ch ; and remember its sign 

positive: 


Here's the code dec format uses to manipulate the number's sign. 


Now that we've taken care of the sign, we can call 
convert bin to string; when it returns, we can use the 
value in CH to decide whether or not to add a negative 
sign. Figure F shows the code we use to do this. 


Figure F 
or ch, ch ; Is it a negative number? 
jz positive2 
dec si ; Yes, make room for '-' 


mov byte ptr [si], '-'  ; add '-' to the buffer 
inc cl ; update the digit count 
positive2: 


dec format uses this code to place the minus sign in the temporary 
work buffer for negative numbers. 


After dec format adds the sign to the temporary work 
buffer, it simply calls move to output buffer to copy the 
string to the output buffer and finish the job. 


Interpreting signed and unsigned 
decimal numbers 


Reading and interpreting signed and unsigned decimal 
numbers is of similar complexity to outputting them. 
Again, we have to construct the binary number from the 
input buffer, and again we have to worry about the sign. 
For input, however, we don't have to worry about for- - 
matting the result; instead, we have to concern ourselves 
with input errors. 

Let's concentrate on the easy part—building a binary 
number digit by digit. We'll worry about the errors as we 
come to them. 

In the last section, we constructed a couple of build- 
ing block functions before building the final functions. 


We're going to do that again here—except that we need 
only one building block. 


The procedure convert string to bin 
The method we'll use to convert a string to a binary num- 
ber is simple: Each time we encounter a digit, we'll multi- 
ply our previous number by 10, and add the value of the 
current digit. We'll keep going until either we run out of 
digits or the number gets too big. 

Figure G shows the code for our new building block 
function: convert string to bin. If convert string to bin 
fails (i.e, the number is too big), it returns with the Carry 
Flag set; otherwise, it returns with the Carry Flag clear. 


Figure G 


convert string to bin proc 


xor dx, dx ; zero accumulator 
хог ах, ax 
mov сх, 10 ; the number base 

convert: 
mov bl, [di] ; get a character 
sub bl, ‘O° ; is it a digit? 
jb done 
cmp bl, 9 
ja done 
inc di ; point to the next character 
mul cx put digit in accumulator (i.e., 
add al, bl mult old value by 10 and add 
adc ah, 0 the new digit.) 
adc dx, 0 
jz convert ; if no overflow, process next digit 
stc ; overflow error! (# > 65556) 
ret 

done: 
clc 
ret 


convert string to bin endp 


Here's the core function that reads a string and returns a binary 
number in AX. 


The udec read procedure 

As you may imagine, the udec read procedure is pretty 
simple, given the function convert string to bin. In fact, 
all we need to do is to call convert string to bin and 
check for two user errors. 

One error the user might make is to type a number 
that's too large. Luckily, convert string to bin detects this 
error, and when it does, it returns with the Carry Flag set. 
The other possible error the user might commit is to call 
udec read without a string of decimal digits. This error is 
just as easy to trap, since we just look at the buffer pointer 
before and after the call to convert string to bin, and if it 
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doesn’t change (1.е., we didn’t process any characters), the 
user gave udec_read an invalid string. 

When you call udec_read in your programs, pass it the 
address of the input buffer in DS:DI. udec_read returns the 
value (or the error code) in the AX register, with DS:DI 
pointing to the first unused character in the input buffer, 
and the Carry Flag set if there was an error. (If the Carry 
Flag is set, AX contains the error code er$OVRFLW (2) if the 
number was too large and er$BADCHR (1) if udec_read 
couldn’t process any characters.) 


The dec_read procedure 

The dec_read procedure is slightly more complex than 
udec_read because it must handle both positive and neg- 
ative numbers. Since convert_string_to_bin recognizes only 
digits, it chokes if you pass it a '+' ог '-' symbol. Therefore, 
the first thing that dec_read must do is check if there is a 
sign character on the front of the number, and if there is, 
remember it and remove it. The code we use to do this is 
shown in Figure H. 


Figure H 
xor bh, bh ; default is no sign (BH=0=positive) 
mov bl, [di] ; get character 
cmp bl, '+' ; if it's a '+', skip and ignore it 
jz dr positive 
cmp bl, ‘-' ; if it's a '-', set BH to 1 (neg) 
jnz dr ignore 
inc bh 

dr positive: 
inc di 

dr ignore: 


Here's the code that dec read uses to process a leading sign, if one 
exists. 


After dec read processes the leading sign, it calls 
convert string to bin to get the binary equivalent of the 
decimal string. When convert string to bin returns, 
dec read has to adjust the sign and detect errors. Figure I 
shows the code dec read uses to process the sign and 
check for input errors. 

The error handling and sign processing are inextricably 
intermingled in the code in Figure I. Here's a brief synopsis: 
First we check if the number should be negative (i.e., if it 
was preceded by a ~). If not, then we check to see whether 
it’s negative anyway (because values from 32,768 to 65,535 
didn't overflow in the convert string to bin function, but 
they're interpreted as negative values in dec, read). If so, we 
issue an overflow error and quit. If the number isn't neg- 
ative, and we processed digits, then we exit cleanly with the 
value in AX. 
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Figure | 


call convert string to bin 
jc dr errori ; if # is too large, overflow 


or bh, bh ; was '-' at beginning of number? 
jnz dr_negative 

ог ах, ах ; is number in АХ negative? 

js dr errorí (it shouldn't be, yet!) 

cmp si, di ; did we process any digits? 


jz dr error2 


dr exit: ; NORMAL EXIT 

clc ; indicate no error 
dr rejoin: 

; pops to restore registers 

ret 


dr negative: ; number was preceded by '-' sign 


inc si ; did we process any digits? 
cmp si, di 
jz dr error2 
ог ах, ax ; Is the number 0? 
jz dr exit 
neg ax ; Negate the number 
jns dr error1 ; If not negative, we overflowed 
jmp dr exit 
dr errorí: ; ABNORMAL EXIT 


stc : indicate an error occurred 
mov ax, er$OVRFLW error number -- OVERFLOW 
jmp dr rejoin 


dr error2: ; ABNORMAL EXIT 
stc ; indicate an error occurred 
mov ax, er$BADCHR error number == BAD CHARACTER 
jmp dr rejoin 


The error checking for dec read is much more complex than that 
required by udec read. 


If the number is intended to be negative, then we 
check to see if we processed any digits. If not, we overflow 
with a bad input character error. Next we have to check if 
the number is zero (because our next test fails for zero). If 
it's zero, then we exit cleanly. Next we negate the number, 
and if it's not negative we exit with an overflow error. 


The dec set width procedure 


The only procedure we didn't discuss yet is dec set width. 
It really doesn't do anything special — when you pass it a 
field width in the AL register, it sets the field width vari- 
able to that value. When dec set width returns, it returns 
the previous value of field width in the AL register. 


DECTST.ASM—the example 
program 


DECTST.ASM, shown in Listing 2B on page 16, simply 
gives the decimal I/O routines a workout. If you define 
SIGNED when you assemble it, DECTST.ASM tests the 
signed decimal I/O; and if you assemble it without 
defining SIGNED, it tests the unsigned decimal I/O 
functions. 

There’s nothing out of the ordinary in DECTST.ASM, 
so here’s a thumbnail sketch of its operation: It prompts 


THIS TRAP! 


BEWARE OF 


you for two numbers separated by a space (though if you 


enter more than one space, DECTST will skip over them 
properly). Then it parses both the numbers and adds them. 
Finally, it prints the sum of the two numbers. 


Conclusion 

Now you can use decimal I/O in your programs so other 
people won't have to wonder what kind of number 38A5 
is. They'll be able to interact with your programs on a 
meaningful level. 1 


Avoid being bitten by reserved words 


hen you're programming in Microsoft 
i d / Assembler 6.0, you'll frequently encounter а 
problem— running into reserved words. MASM 
6.0 is very powerful, but it incurs much of this power at 
the expense of a cluttered name space. 

If you envision a large room as the "space" that you 
can put names in, you want the manufacturer of an 
assembler to put reserved words out of your way—i.e., 
near the walls. Unfortunately, in assembly language, the 
opcodes are reserved words, the directives are reserved 
words...there are reserved words all over the place. It's 
much like having a bunch of marbles scattered all over the 
floor. When you walk through the room, you're always 
stepping on marbles. Programming in assembly language is 
similar to walking through this room. 

For example, you might think that Loop is a good label 
for the start of a loop. Unfortunately, it's also the name of 
an instruction. If you forget that loop is an instruction (and 
hence, a reserved word), then when you use it as a label 
you ll get the following error: 


ERRORS . АЗМ( 15): error А2008: syntax error : loop 


MASM won't tell you when you use a reserved word in an 
inappropriate context. Instead, it will give you some oddball 
error message that often obscures the true cause of the error. 

In languages like Pascal or C, the problem still exists, 
but less so—there are so few reserved words in these two 
languages. MASM 6.0, however, has more than 600 
reserved words. This means that just about any short, 
mnemonic name you might think of to use in a program 
has probably already been reserved, and you can't use it. 


How to avoid the reserved 
word problem 


Luckily, there are two easy ways to minimize the reserved 
word problem. The first method is to use long variable names, 


which are preferable to short variable names because most of 
the reserved words are three or four characters long. An 
added benefit of using long variable names is that your 
programs become easier to understand—assuming your 
variable names mean something. 

For example, the program in Figure A tries to print a 
string named str to the screen. Unfortunately, str is the 
mnemonic for the Store Task Register command on the 
80286 (and later) CPUs. 


Figure A 


.model small 
.stack 
.data 
str db 
.code 
. 286 
.startup 
mov dx, offset str 
mov ah, 9 
int 21h 
.exit 0 
end 


"This is a string$" 


This program fails because a data item has the same name as a 
reserved word. 


When you assemble this program, you'll get the 
following error messages: 


ERROR1.asm(4): error A2085: instruction or register not 
accepted in current CPU mode 
ERROR1.asm(8): error A2008: syntax error : str 


As you can see, the first occurrence of str causes 
MASM to issue the A2085 error, and the second 
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occurrence causes MASM to issue the A2008 error. The 
error messages are different because they appear in 
sections with different CPU levels. The first error occurs 
in standard 8086 mode, while the second occurs in 
80286 mode. 

Since the 8086 CPU doesn’t have the str instruc- 
tion, MASM warns you that the instruction is invalid in 
the current mode for the first occurrence. In the second 
instance, since MASM is in 80286 mode, it supports 
the instruction—but it detects that you’ve used it 
incorrectly. That’s why you get two different error 
messages. You can fix both errors selecting a better 
name for your string. 


A SIMPLE UTILITY PROGRAM 


You can employ another method to avoid the reserved 


! word trap—use special characters in your names. The 


special characters (e, _, $, and ?) can also help because few 
of the reserved words use them. (Microsoft begins some 


| reserved words with €, so you should avoid this character.) 


Conclusion 
MASM 6.0’s reserved words can be a real bugaboo when 


you're programming because the error messages can be 
' misleading. Consequently, you can spend too much time 


chasing your tail looking for nonexistent bugs. Luckily, 


using longer names and adding special characters to your 


names can make this a rare bug, indeed. 1 


Forcing your computer to reboot 


b y es, I know—when you program in assembly 
language, you often reboot your computer—usually 
when you don’t mean to. Still, it’s occasionally 

convenient to force your computer to reboot. For example, 

you might write a program that changes your CONFIG.SYS 
or AUTOEXEC.BAT file, and to make the changes take effect, 
you must reboot your computer. In this article, we'll show 
you a technique you can use to reboot your computer. 


The two types of booting 


You can boot your computer in two ways. When you turn 
on the power or push the reset button (provided by some 
PC-compatible computers), you’re performing a cold boot. 
When you reboot from the keyboard (with Ctrl-Alt-Delete), 
you're performing a warm boot. 

In a cold boot, your computer starts over as if you had 
just turned on the power. The computer tests itself 
thoroughly, and loads DOS. A warm boot is similar, but the 
computer doesn't test itself as thoroughly when it starts 
up—it has already booted up successfully, so there's no 
need to test the computer as rigorously. 

Your computer differentiates between a cold boot and 
a warm boot by examining a special memory location in 
the BIOS data area called, in some sources, the POST reset 
flag. POST is an acronym for “Power On Self Test.”) If this 
word of RAM holds 1234H, the computer performs a 
warm boot; otherwise, it performs а cold boot. (In fact, 
there are several other values of the POST reset flag that 
have different meanings on some computers, but they 
aren’t consistent on all machines.) 


How to reboot your computer 


Since we want to write a program that can reboot the 
computer, we need to know the methods available to us. 
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| Unfortunately, many references recommend using INT 


19H—unfortunate in that it works reliably only on IBM 
computers. Most PC clones don't support the INT 19H 
method of rebooting. 

Luckily, every computer we've tried supports the alter- 
nate method: performing a direct jump to the CPU restart 
address. The 80x86 series of processors all jump to address 
ОЕООО:ЕЕЕОН whenever they're reset. Since this address is in 
ROM, it will work with your computer (unless you have a 


: memory manager that swaps out your BIOS ROM). 


Since the ultimate goal is to write a program to reboot 


: your computer, it's obvious that your computer must boot 


successfully before it can run the program, so the program 
can use a warm boot to save time. Figure A contains the 


program we wrote that you can use to reboot your computer. 


In order to specify the type of boot we want to 


! perform, REBOOT.ASM must access the POST reset flag. 
: To do this, we first put the address of the BIOS data 


segment (0040H) into the ES register. Next we place the 
Offset address of the POST reset flag (0072H) into the BX 
register. The first three mov lines do this job—now 


|! REBOOT.ASM can access the POST reset flag. 


The next two lines store 1234H into the POST reset flag 
to specify a warm boot. If you would rather have 


| REBOOT.ASM perform a cold boot, you can replace the line 
| mov ax, 012341 


| with the line 


Xor ax, ax 


| which causes REBOOT.ASM to store а value of 0 in the 
| POST reset flag. 


Figure A 


ME E Z Z oko ok oe Z E E 5 5 £ E E £ E 5 5 5 5 5 5 EEE KEE EEE EEE EH EE HEE 


; REBOOT.ASM - a program to reboot your computer 


; To compile: ml /AT reboot.asm 


ME Z E £ 5 5 5 Z £ ok Z £ E E oe e ok 5 5 ok EEE EEE ke oe EEE KE EEE EE KEE 5 5 


.model tiny 

.code 
org 0100h 

reboot: 
mov ax, 0040h ; Point to BIOS data 
mov es, ax ; Segment 


mov bx, 0072h 
mov ax, 0912541 
mov es:[bx], ax 
db Oeah 

dd Qf000fffOh 


; Point to POST reset flag 
; Signal a WARM boot 


; Jump to OF000:0FFFOH 


end reboot 


This simple program reboots your computer. 


Finally, REBOOT.ASM jumps to address OFOOO:OFFFOH, 
which is where the CPU starts whenever you turn it on. 
We couldn’t use the following line of code because 
Microsoft Assembler doesn’t understand this instruction. 


SAVE TIME AND EFFORT 


jmp 0f000f f fOh 


Instead, we created the instruction by hand—the 
opcode for a long jump is OEAH and the address we 
want to jump to is OF000:0FFFOH. You can make a 
macro using this technique to make an intersegment 


| jump instructions. 


While there is a better method we could use to 
perform a far jump to an absolute address, it doesn't 
work in all memory models. We devised this technique 
because it works everywhere. 

Why did we select a method that works in all 
memory models when we're using the Tiny memory 
model? Because we want to be able to use the section of 
code printed in color in any program without having to 
modify it. 

You'll notice we printed the section of code labeled 
reboot in blue. This is the only section you need to put in 
your programs in order to reboot them. The rest is just 
enough window dressing to get MASM to compile it into 
an EXE file. 


Summary 


Now you know which rebooting method is best (the jump 
to OF000:FFFOH) and why (it works properly on more 
computers). We've also presented a subroutine you can 
use in any program in order to reboot your computer 
whenever the need should arise. 1 


Using input scripts with the CodeView 


debugger 


ow often have you debugged the same program? 
H Well, unless you don’t write programs, you 

probably spend a good deal of time debugging. In 
this article, you'll see a technique you can use in CodeView 


to minimize the amount of time you spend in the debugger. 
We're going to show you what input scripts are, how 


| to use them, describe how to create them, and (most 
| importantly) explain why you want to use them. Obvi- 
| ously, the first question is, What zs an input script? 


What is an input script? 
Simply put, an input script is a file containing a list of 
commands for CodeView to execute. The file is a simple 


text file you can create with a text editor, like EDLIN. In 
this text file, not only can you use commands for 
CodeView, but you can add commands to help you figure 
out what CodeView is doing. 


How to create an input script 


While you can use EDLIN or another text editor to create an 
input script by hand, there's a better way. You can use the 
output redirection (Т>) command to log what you're doing 
in CodeView. Then, when you're done with your debugging 
session, you have a complete transcript of what you typed 
and CodeView's responses. You can then use a text editor 
to clean up the log file and turn it into an input script. 
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In a long debugging session, you're not likely to remem- 
ber the reason for including each thing you type, so you'll 
probably want to use the comment command (*) to docu- 
ment your work. Then, when you edit your debug log and 
turn it into an input script, you'll know what you did and why. 

Working with input scripts can be frustrating at first, 
because if you notice a mistake in the script, you won't 
have a chance to correct anything until the script has run 
its coursc. Sometimes you'll get long streams of error 
messages from CodeView, and occasionally you'll lock up 
your machinc. For this reason, you want to be particularly 
careful when you create the input script. 

When you create an input script, you're likely to make 
one of two errors. The first error occurs when you include 
extra characters or omit necessary ones. The second error 
is the use of an incorrect address. Since CodeView accepts 
script commands as if you'd typed them, you need to be 
sure you enter them correctly. 

For example, the register command (R) works three 
different ways, depending on the arguments you give it. If 
you give it no arguments at all, it simply displays the con- 
tents of the registers and tells you the current instruction. 
If you specify a register, it prints the register's current 
contents, then prompts you for a new value. If you specify 
both a register and a value, it sets the register to the new 
value, but prints nothing. 

Therefore, if you used RAX to display the AX register, you 
must remember to follow it with a blank line so you'll leave 
the AX register unchanged. Otherwise, CodeView will con- 
sider the next command as the value you're trying to put in 
the AX register. Not only will CodeView probably interpret 
the command as an error, but in either case CodeView will 
ignore that instruction, causing your input script to fail. 

Whenever you recompile your programs, memory 
addresses are liable to change. This can cause your script 
to fail if you use hardcoded addresses for breakpoints and 
memory areas. If you need to set a breakpoint, the safest 
way is to set it at a label. Whenever you compile your 
program, the address of the label may change, but 
CodeView will be aware of it. 


How to use an input script 


As we mentioned earlier, there are several commands that 
you can use to make using input scripts easier. First let's 
discuss three that you use 77 your input scripts: the 
comment (^, delay C), and pause (") commands. 

When a line starts with the comment command, 
CodeView simply displays the line in the command 
window and ignores the command. You can use com- 
ments to print messages on the screen informing you of 
what the script is about to do (or has already done). 

Starting a line with a colon tells CodeView to wait for 
approximately one-half of a second before reading the next 
command. (You can use multiple colons on one line to 
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provide longer delays—each colon causes a one-half- 


second delay.) The delay command is most useful in a loop 


| when you don't necessarily want to see every iteration. 
| This lets you walk away from the computer while the 
| program is running. 


If you need longer delays, or you need to ensure that 


| you can examine the screen in its entirety before processing 


the next command, you can use the pause command. When 


| you issue this command, CodeView waits until you press а 
_ key on the keyboard before it continues processing char- 


acters. This way, you won’t miss an important data item 


when you get up for a soda. 


Since we described the technique of using 
CodeView’s output redirection command to help build 
input scripts, you’ve probably guessed you can use 
CodeView’s input redirection command (<) to run the 
script. In fact, that’s exactly what you do. You can tell 
CodeView to read a list of commands to execute at any 
time—just follow the input redirection command with the 
name of the file holding the input script. 


: Why should you use input 


scripts? 

Notice that we've left the most important question 
unanswered— Why should you use input scripts? You can 
think of input scripts as subroutines or macros for 
debugging. They make your job easier just as procedures 
and macros do in your programming. Perhaps this story 


will help you understand. 


You have a complex function that computes your 
income tax (now that would be a complex function!). In 
order to test the function, you'll have to try it with many 
different inputs. Unfortunately, every time you run it, you 
may want to set up CodeView's windows, initialize some 
data areas, set a few watch variables, and run through the 
program until your function starts. 

Each time you change your function, you have to re- 
compile and re-examine the results in CodeView. If you have 
to type the following list of commands every time you debug 


your program, you're bound to make mistakes occasionally: 


rax 
0400 

rsi 

5510 

es tablel 

2500 15.95 62.46 
el table2 
w?totalTax 
w?checkToIRS 
1.00001 16.4 

g computetax 


If you created a file with this list of commands, how- 
ever, you could execute them all in one statement— 


CodeView would automatically set things up for you the 
same way each time. 


Conclusion 


The input scripts technique for CodeView can make 
debugging a less tedious and tiresome job. When you 


debug a program, you often have to perform the same 
operations over and over. Input scripts can let you build 
“super commands” for CodeView, so you can think in a 
higher-level point of view, rather than having to con- 
centrate on myriad details. In this respect, they function 
like macros for MASM. 1 


Sour ce code listings ( You can download the listings from CGIS.) 


The following are the complete programs described in the preceding 


time of the day. Use your 300-, 1200-, or 2400-baud modem with 8 data 


bits, 1 stop bit, and no parity to call CGIS at (502) 499-2904. Your user ID 
is your customer number (the one- to seven-digit number on the top line of 


articles. We placed the listings at the end to preserve continuity, and we 
restricted them to 76 columns to maintain readability in the two-column 


format. You can download the listings from our online service, CGIS, at any your mailing label after the C:). 
icti z А . : mov al, 7Oh 
Listing 1: Directly accessing the text mode video screen call sot ава 
jc abort 
Eee eee EET ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ xor ah, ah а get another Key from keyboard 
; VIDEO.ASM - demonstrate a way to access the text mode screen int 16h 
; directly. YOU MUST SUPPLY THE VALUE FOR SCREENMODE BEFORE ASSEMBLY! 
; abort: 
; To assemble <v6.0> ml /DSCREENMODE=?? video: mov ax, 4cOOh ; quit program 
: <v5.1> masm -DSCREENMODE=?? video: int 21h 


Link video: 


Where ?? = 0 or 1 for CGA/EGA/MCGA/VGA/XCGA screens in 40x25 mode, 
: 2 or 5 for CGA/EGA/MCGA/VGA/XCGA screens in 80x25 mode, 
7 for MDA/Hercules screens in 80x25 mode 


" 
J ЖЖЖЖЖЖЖЖЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ak ak ak ЖЖ ЖИ ak ake ak ak ak ЖЖ a ak ake 2k ake ЖЖ ak ЖЖ k k k kk k k k k ЖЖ 


.model small 

Stack 

.data 

screenCell struc ; Definition of the character on the screen 
char db ? ; The character to display 
attr db ? ; The attributes to use 


screenCell ends 
InsideAssembler db "Inside Assembler", 9 


IF (SCREENMODE EQ ©) OR (SCREENMODE EQ 1) 
SCREEN SIZE equ 40+25 
SCREEN WIDTH equ 40 
ELSE 
SCREEN SIZE equ 80425 
SCREEN WIDTH equ 80 
ENDIF 


. соде 
start: 
mov dx, DGROUP ; set DS and ES to point to the data 
mov es, dx ; segment 
mov ds, dx 
cld ; make sure DIRECTION = FORWARD 


; Clear the screen 

mov al, 0 ; BLK on BLK - makes screen invisible 
call clear_screen 

jc abort 


; Write message on screen 

mov dh, 23 

IF (SCREENMODE EQ 0) OR (SCREENMODE EQ 1) 
mov dl, (40 - 16) SHR 1 

ELSE 
mov dl, (80 - 16) SHR 1 

ENDIF 

mov si, offset InsideAssembler 

mainLoop: 

call display_string 

jc abort 

dec dh 

jnz mainLoop 

xor ah, ah 

int 16h 


; get a key from the keyboard 


; Set screen to gray letters (modes 0..3, white in 7) on black 
mov al, O7h 

call set_screen_attr 
jc abort 

xor ah, ah 

int 16h 


; get another key from keyboard 


; Set screen to reverse video 


; clear_screen - clear the screen (i.e., set the data and attribs for 
; the entire screen). 


INP: AL - screen attributes to use 
; OUT: CY - SET if error (invalid screen mode), CLEAR otherwise 
; NOTE: destroys the AX register 


clear_screen proc 
push cx ; preserve the registers 
push di 
push es 


call set ES to screen start 


jc cs error 

; Set the attributes on the screen 

mov cx, SCREEN SIZE ; # of cells on screen 

xor di, di ; start at 0, 0 

mov ah, al ; Attribute 

mov al, ' ' ; Data 

rep stosw ; set attrib & data for screen 

cle ; Done ... set NO ERROR flag 
cs error: ; (note: if jc cs error, then carry is set) 

pop es 

pop di 

pop cx 

ret 


Clear screen endp 


; display string - put a message on the screen 


; INP: DH - row on screen to put message 
DL - column on screen 
05:51 - points to string to display (terminated with 0) 


display string proc 
push ax ; Save the registers 
push bx 
push cx 
push si 


; compute the starting location on the screen 
mov cl, SCREEN WIDTH ; cells in row 


хог ax, ax 
mov al, dh ; гом number 

mul cl ; АХ = row number є cells in row 

add al, dl ; АХ = row number«cells in гом+со{ итп 
adc ah, 0 

add ax, ax ; each cell is two bytes long 

mov bx, ax ; ВХ = offset of first character 


; Set the ES register to the start of the screen 
call set ES to screen start 


sub cl, dl ; Compute max number of columns 
ds loop: 

Lodsb ; Get character to display 

or al, al ; End of string found? 

jz ds done 


IF eVersion GT 600 


Dec-Jan 1991 25 


ASSUME bx:ptr screenCell 
ENDIF 
mov es:[bx].char, al ; Put char on display 
add bx, 2 ; point to the next screen cell 
dec cl 
jnz ds loop 
ds done: ; done - either out of char or hit RM 


pop si 
pop cx 
pop bx 
pop ax 
ret 
display string endp 


; set screen attr - set the entire screen to the specified attribute 


INP: AL - the screen attribute to use 
; OUT: CY - Set if error (i.e., bad screen mode), otherwise Clear 


set screen attr proc 
push cx ; preserve the registers 
push di 
push es 


call set ES to screen start 
jc ssaExit 


; Set the attributes on the screen 
mov cx, SCREEN SIZE ; # of cells on screen 
xor di, di ; start at 0, 0 
ssaLoop: 
IF eVersion GT 600 
ASSUME di:ptr screenCell 
ENDIF 


mov es:[di].attr, al ; Put char on display 


add di, 2 ; point to the next screen cell 

loop ssaLoop ; process next cell on screen 

clc ; Done ... set NO ERROR flag 
; Normal AND error exit point (when error detected, carry is set) 
ssaExit: ; NORMAL EXIT 

pop es 

pop di 

pop cx 

ret 


set screen attr endp 


set ES to screen start - set the ES register to the segment that 
: holds the screen data for the current video mode 


; INP: - попе - 
: OUT: ES - holds ОВОООН for mode 7 (mono), 0B800H for modes 0..5 
: CY - SET if invalid screen mode, CLEAR otherwise 


set ES to screen start proc 
push cx ; preserve cx 
mov cx, es ; On error, don't change ES 
stc ; Error until otherwise proven 
IF SCREENMODE EQ 7 
mov сх, Ob000h 
cle 
ENDIF 
IF (SCREENMODE GE 0) AND (SCREENMODE LE 3) 
mov сх, 058001 ; color screen starts at b800h 
ele 
ENDIF 
mov es, сх 
pop cx 
ret 
set ES to screen start endp 


; mono screen starts at bOO0h 


end start 


Listing 2А: A collection of signed and unsigned decimal... 
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DECIO.ASM - signed and unsigned decimal I/O routines 
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;---Error codes 
er$BADCHR equ 1 


; Bad character found in input string 
er$OVRFLW equ 2 


; Overflow -- number too large 


.model small 
.stack 
.data 


;---Data definitions 
field width db 0 
temp buff db 10 dup(?) 


; field width (O=autosizing) 
; temporary work buffer 


code 
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; dec set width - set the width of a decimal number field 


; INP: AL - field width, where O-automatically sized, and 1..255 
; are the legal widths 

; OUT: AL - holds the last field width 

CY - set if illegal field width, clear otherwise 


public dec_set_width 
dec_set_width proc 


xchg al, field_width 
ret 


: set field width & return old one 


dec set width endp 


dec format - format a number into a signed decimal string 


; INP: АХ - number to convert to a signed decimal string 
| ES:DI - address to place the resulting string 
; OUT: AX - destroyed 

ES:DI - points to next available place in buffer 


public dec_format 
dec_format proc 


push bx 
push cx 
push dx 
push si 


; if the number is negative, put the sign in the buffer and 
; negate it 


xor ch, ch ; sign flag: O=positive, l=negative 
or ах, ах 
jns positive 
neg ax ; # is negative, make it positive 
inc ch ; and remember its sign 

positive: 


call convert_bin_to_string ; convert AX to string in temp buffer 


; Now put in sign (if appropriate) 


or ch, ch 

jz positive2 

dec si ; point to slot to hold ‘-' 

mov byte ptr [si], '-' ; store the '-' 

inc cl ; increment the digit count 
positive2: 


call move to output buffer ; Move formatted string to output buf 


pop si 
pop dx 
pop cx 
pop bx 
ret 


dec format endp 


; dec read - convert a string of decimal digits to a binary number 


; INP: DI - address holding the decimal number 

; OUT: AX - decimal number (or error code if error) 
DI - points to next character in buffer 

; CY - set on error, clear otherwise 

; NOTE: the only error recognized is overflow (i.e. the user entered 
too many digits) 

public dec read 

dec read proc 


push bx 
push cx 
push dx 
push si 


; initialization 
mov si, di ; keep track of first digit 


; check for a sign 
xor bh, bh ; default is no sign (BHzO-positive) 
mov bl, [di] ; get character 
cmp bl, '«' : if it's a '«', skip and ignore it 
jz dr_positive 
стр bl, '-' ; if it's а '-', set BH to 1 (neg) 
jnz dr ignore 
inc bh 

dr positive: 
inc di 

dr ignore: 
call convert string to bin ; convert decimal string to binary 
jc dr error 
ог bh,bh ; Mas '-' at beginning of number? 


jnz dr_negative 
ог ах, ах 


js dr_errort 
e cmp si, di 

jz dr error2 
dr exit: 

cle 
dr_rejoin: 

pop si 

pop dx 

pop cx 


pop bx 
ret 


dr_negative: 

inc si 

cmp si, di 

jz dr_error2 
ог ах, ах 

jz dr_exit 
neg ax 

jns dr_errort 


jmp dr_exit 


dr_errort: 
stc 
mov ax, er$OVRFLW 
jmp dr rejoin 


dr error2: 
stc 
mov ax, er$BADCHR 
jmp dr rejoin 


dec read endp 


; Is number in AX negative? 


(it shouldn't be!) 


: Did we process any digits? 


; NORMAL EXIT 


indicate no error 


; Number was preceded by '-' sign. 
; Check if we've processed digits 


other than the '-' 


; Is the number 0? 


; Negate the number 
; If negating number doesn't make it 


negative, we've overflowed ... 


; ABNORMAL EXIT 


indicate an error occurred 
error number -- OVERFLOW 


; ABNORMAL EXIT 


indicate an error occurred 
error number -- BAD CHARACTER 


udec format - format a number to an unsigned decimal string 


; INP: AX - number to convert to an unsigned decimal string 
ES:DI - address to place the resulting string 


; QUT: AX - destroyed 


ES:DI - points to next available place in buffer 


public udec format 
udec format proc 


push bx 
push cx 
push dx 
push si 


call convert bin to string 
call move to output buffer 


pop si 
pop dx 
pop cx 
pop bx 
ret 


udec format endp 


; convert AX to string in temp buffer 
; Copy the formatted string to the 
; output buffer 


; udec read - convert a string of decimal digits to a binary number 


; INP: DI - address holding the unsigned decimal string 
; OUT: AX - decimal number (or error code if error) 

DI - points to next character in buffer 

CY - set on error, clear otherwise 


; NOTE: the only error recognized is overflow (i.e. the user entered ^ 


too many digits) 


public udec read 
udec read proc 


push bx 
push cx 
push dx 
push si 


mov si, di 
call convert string to bin 
jc ur errorí 


cmp si, di 
jz ur, error2 
clc 
ur rejoin: 
pop si 
pop dx 
pop cx 
pop bx 
ret 


ur errorí: 
stc 


mov ax, er$OVRFLW 
jmp ur rejoin 


; remember first character position 
; convert string to binary 


; NORMAL EXIT 
; If we didn't process any characters 


then we encountered a bad one 


; ho error ... 


; ABNORMAL EXIT - overflow error 


ur error2: ; ABNORMAL EXIT - bad character 
stc 
mov ax, er$BADCHR 
jmp ur rejoin 


udec read endp 


; move to output buffer - a helper routine that moves the formatted 


; number from the temporary work buffer to the output buffer, padding 


; With spaces, if necessary. 


- INP: 


* QUT: 
; NOTE: 


ES:DI - points to output buffer 

DS:SI - points to string in temp work buffer 

ES:DI - points to next available spot in the output buffer 
destroys AL, CH, and SI 


move to output buffer proc 


; pad output field with 


if not enough digits to fill field 


xor ch, ch 
push cx 
mov al, field width ; 8 to pad - field width - num dig 
sub al, cl 
jc done padding ; don't pad if not enough room 
xchg al, cl ; СХ = number of spaces to add 
mov al, ' ' 
rep stosb ; pad output buffer 
done padding: 
pop cx ; CX = number digits in temp buffer 
rep movsb ; copy digits to output buffer 
ret 


move to output buffer endp 


convert string to bin - read a decimal number from the string 


‘INP: 
> OUT: 


; NOTE: 


DS:DI - points to input buffer 

AX - holds decimal number 

DI - points to first character that's not a digit 
CF - Set on overflow (unsigned number > 65536) 
destroys BL, CX, DX 


convert_string_to_bin proc 


xor dx, dx ; zero accumulator 
хог ах, ах 
mov сх, 10 ; set base 
convert: 
mov bl, [91] ; get a character 
sub bl, '0' ; is it in [0...9]? 
jb done 
cmp bl, 9 
ja done 
inc di ; point to next character 
mul cx ; put digit in accumulator (i.e., 
add al, bl ; mult old value by 10 and add 
adc ah, 0 ; the new digit) 
adc dx, 0 
jz convert ; if no overflow, check next digit 
stc 
ret 
done: 
clc 
ret 
convert string to bin endp 


; convert bin to string - convert a binary number to a string 


; INP: AX - holds the binary number 

; OUT: 05:51 - points to first character in formatted string 

; CL - holds length of the formatted string 

; NOTE: destroys AX, BX, DX 

; NOTE: procedure builds string from back to front 

convert_bin_to_string proc 
mov si, offset temp_buff+9 ; end of buffer 
mov bx, 10 ; numeric base 
xor dx, dx ; clear top half of the accumulator 
xor cl, cl 

convert_loop: 
div bx ; Divide by 10 puts remainder in DL 
add dl, '0' ; Convert remainder to ASCII digit 
dec si ; Point to the slot to hold digit 
mov [si], dl ; Store ASCII digit into the buffer 
inc cl ; Keep track of # of digits used 
xor dl, dl ; Clear remainder for next division 
ог ах, ах ; check if we're done yet 
jnz convert_loop 
ret 

convert_bin_to_string endp 

end 
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мии 
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Please include account number from label with any correspondence. 


Listing 2B 
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DECTST.ASM - exercise the decimal 1/0 routines 


To assemble... 
...to test SIGNED «v6.0»: ml /DSIGNED dectst.asm decio.asm 
<v5.1>: masm -DSIGNED dectst; 
masm decio; 
Link dectst+decio; 


...to test UNSIGNED «v6.0»: ml dectst.asm decio.asm 
«v5.1»: masm dectst; 
masm decio; 
Link dectst+decio; 


ГД 
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.model small 


extrn dec read : proc, dec format : proc, dec set width : proc 
extrn  udec read : proc, udec format : proc 


;---Error codes 


er$BADCHR equ 1 ; Bad character found in input string 
er$OVRFLW equ 2 ; Overflow -- number too large 

CR equ Odh ; Carriage return 

LF equ Oah ; Line feed 

.stack 

.data 

outBuf db 50 dup(0) 

inpBut db 15, 0, 15 dup(0) 

Prompt db ‘Please enter two decimal numbers separated by a ' 


db ‘space (or X to quit)', CR, LF, ':$' 


BadChar db CR,LF,'Bad character in an input number. Please try ' 
db ‘again using only', CR, LF, ‘the digits © through ' 
db '9' 
IFDEF SIGNED 
db ' and + and - sign' 
ENDIF 
db CR, LF, '$' 
TooLarge db CR,LF, 'You entered a number that was out of range. ' 
db CR,LF, 'Please try again with a value between ' 
IFDEF SIGNED 
db '-52768 and 32767', CR, LF, '$' 
ELSE 
db "Ө and 65535', CR, LF, '$' 
ENDIF 
Overflow db CR, LF, 'The two numbers added together are outside ' 
db ‘the normal range for', CR, LF 
IFDEF SIGNED 
db ‘a SIGNED number (-32768 to 32767)' 


ELSE 
db ‘an UNSIGNED number (0 to 65535)' 
ENDIF 
db CR, LF, '$' 
code 

; Initialize the DS, ES and SS segments (as well as fixing SP) 
mov dx, DGROUP ; set DS & ES to the start of DGROUP 
mov ds, dx 
mov es, dx 
cld ; <ensure that DIRECTION = FORWARD> 


; set the numeric field width to 3 characters 
mov al, 3 
call dec_set_width 


; ask the user for two decimal numbers separated by a space 
input_loop: 

mov dx, offset Prompt ; print the prompt 

mov ah, 9 

int 21h 

mov dx, offset inpBuf ; get the user's response 

mov ah, 10 

int 21h 
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; terminate the input buffer 
mov di, offset inpBuf+2 

mov bl, inpBuf+1 

xor bh, bh 

mov byte ptr [bx«di], 0 


; Check for the QUIT response 
mov al, [di] Н 
стр al, 'X' 
jz quit 
cmp al, 
jz quit 


X 


; convert the first number to 
IFDEF SIGNED 

call dec read 
ELSE 

call udec read 
ENDIF 
jc input error 
mov bx, ax 


; skip over the spaces 
skip. space: 

mov al, [di] 

inc di 

cmp al, ' 

jz skip space 

dec di 


; point to user's response 
; terminate the input buffer 


get the first character 


; if it's an 'x' or an 'X' then quit 


binary 


; Convert signed string to binary 
; Convert unsigned string to binary 


; was the input OK? 
; store the number 


; Get the character 

; point to the next one 

; ds it a space? 

; yep -- go check the next one 
; oops! went one too far 


; convert the second number to binary 


ifdef SIGNED 

call dec read 
else 

call udec read 
endif 
jc input error 


; print the results of addition 


add bx, ax : 
IFDEF SIGNED 

jo add error 
ELSE 

jc add error 
ENDIF 
mov di, offset outBuf 
mov ax, OdOah 
stosw 
mov ax, bx 
IFDEF SIGNED 

call dec format 


ELSE 
call udec format 
ENDIF 
mov ax, OdOah 
stosw 


mov byte ptr [di], '$' 
mov dx, offset outBuf 
mov ah, 9 

int 21h 

jmp input loop 


quit: 
mov ax, 4cOOh : 
int 21h 


Add the numbers 


; format them into the output buffer 
; put return/line feed into buffer 


; format signed number into buffer 
; format unsigned number into buffer 
; put return/line feed into buffer 


; terminate the output buffer 
; print the results 


Return to DOS with ERRORLEVEL=0 


; There was an input error -- print the appropriate error message 


input_error: 

mov dx, offset TooLarge К 

cmp ах, er$BADCHR 

jnz ie_skip 

mov dx, offset BadChar 
ie_skip: 

mov ah, 9 

int 21h 

jmp input_loop 


; The addition overflowed 
add_error: 
mov dx, offset Overflow 
mov ah, 9 
int 21h 
jmp input loop 


end 


Either the number was too large 
or there was a bad character in 
the input string 


PRINTED ON RECYCLED PAPER (B 
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one of the journals listed below. Just call our Customer Relations 
Department at (800) 223-8720 or (502) 491-1900 to let us 
know which journal you'd like to receive. 


Spreadsheet: Programming: 
Symphony Users Journal Inside Turbo Pascal 
1-2-3 User's Journal (Lotuse 1-2-3e up to Release 2.3) Inside Turbo C++ 
Inside 1-2-3 Release 3 (Lotus 1-2-3 Release 3.1) Inside Microsoft C 
The Expert (Microsofte Excel - Windowsm) Inside Visual Basic». 
Inside Quattro Pro Inside QuickBASIC 
Excellence (Microsoft Excel - Macintoshe) Inside Microsoft Basic 
Inside HyperCa. 
Word Processing: "= "n 
Inside WordPerfecte Database: 
Word for Word (Microsoft Word - PC DOS) Paradoxe User's Journal 
The Inside Wond (Microsoft Word Release 5.5 - PC DOS) Paradox Developer's Journal (PAL Techniques) 
Inside Word (Microsott Word - Macintosh) 
Inside Word for Windows Integrated Software: 
The Workshop (Microsoft Works - PC DOS) 
Systems: Inside Microsoft Works (Macintosh) 
Inside Microsofl Windows 
Inside DOS (entry level/intermediate articles) Graphics: 


Inside Freelance (DOS) 


jn 
"d | 


LA 
| i 
SSUE 


